-- $LastChangedDate: 2007-06-01 02:52:33 +0200 (Fri, 01 Jun 2007) $
-- $LastChangedRevision: 149 $
-- $LastChangedBy: vicente $

-- packages del gimnasio
WITH Tareas.Gmedicos;
USE Tareas.Gmedicos;

SEPARATE (Tareas.Gmonitores)

   -- Atender al cliente que esta enfermo
   -- Con una probabilidad definida en no_es_nada el cliente se recuperara, en caso contrario
   -- el monitor solicitara un medico al gestor de medicos.

PROCEDURE Atender_Cliente_Enfermo (
      G     :        Generator;
      Grave :    OUT Boolean) IS

   -- probabilidad
   P : Integer;
   -- constantes
   No_Es_Nada : CONSTANT Integer := 50;
BEGIN
   -- obtener una muestra del generador
   -- y pasarla a su correspondiente %
   P:= Integer(Random(G)*100.0);

   IF P IN 0 .. No_Es_Nada - 1 THEN
      Grave:= False;
   ELSE
      Grave:= True;
   END IF;

END Atender_Cliente_Enfermo;
